subroutine log_(string)
    include 'files.FI' 
    character*200 string   
    write(*,'(a)') trim(string)
    write(hfiter,'(a)') trim(string)
end subroutine log_

